home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / utilities / apurify.lha / APurify / APserv.a < prev    next >
Encoding:
Text File  |  1995-03-11  |  1.3 KB  |  89 lines
  1.     section APURIFY,code
  2.  
  3.     xdef    _geta4
  4.     xref    __ABSOLUTE_BAS
  5. _geta4: move.l    #__ABSOLUTE_BAS+$7ffe,a4
  6.     rts
  7.  
  8.     xdef    _StdAlloc
  9. _StdAlloc:
  10.     movem.l 4(sp),D0-D1
  11.     move.l    A6,-(sp)
  12.     move.l    4.W,A6
  13.     jsr    $00ffffff
  14.     move.l    (sp)+,A6
  15.     rts
  16.  
  17.     xref    _PubAllocMem
  18.     xdef    _AsmAllocMem
  19. _AsmAllocMem:
  20.     movem.l D1-D7/A0-A6,-(sp)
  21.     movem.l D0-D1,-(sp)
  22.     jsr    _PubAllocMem
  23.     addq.l    #8,sp
  24.     movem.l (sp)+,D1-D7/A0-A6
  25.     rts
  26.  
  27.     xdef    _StdFree
  28. _StdFree:
  29.     move.l    4(sp),A1
  30.     move.l    8(sp),D0
  31.     move.l    A6,-(sp)
  32.     move.l    4.W,A6
  33.     jsr    $00ffffff
  34.     move.l    (sp)+,A6
  35.     rts
  36.  
  37.     xref    _PubFreeMem
  38.     xdef    _AsmFreeMem
  39. _AsmFreeMem:
  40.     movem.l D1-D7/A0-A6,-(sp)
  41.     move.l    D0,-(sp)
  42.     move.l    A1,-(sp)
  43.     jsr    _PubFreeMem
  44.     addq.l    #8,sp
  45.     movem.l (sp)+,D1-D7/A0-A6
  46.     rts
  47.  
  48.     xref    _AP_protect
  49.     xdef    AP_protect
  50. AP_protect:
  51.     movem.l D0-D7/A0-A6,-(sp)
  52.     jsr    _AP_protect
  53.     movem.l (sp)+,D0-D7/A0-A6
  54.     rts
  55.  
  56.     xref    _AP_unprotect
  57.     xdef    AP_unprotect
  58. AP_unprotect:
  59.     movem.l D0-D7/A0-A6,-(sp)
  60.     jsr    _AP_unprotect
  61.     movem.l (sp)+,D0-D7/A0-A6
  62.     rts
  63.  
  64.     xref    _AP_rd
  65.     xdef    AP_rd
  66. AP_rd:    movem.l D0-D7/A0-A6,-(sp)
  67.     movem.l 64(sp),D0/D1
  68.     movem.l D0/D1,-(sp)
  69.     jsr    _AP_rd
  70.     addq.l    #8,sp
  71.     movem.l (sp)+,D0-D7/A0-A6
  72.     move.l    (sp),8(sp)
  73.     addq.l    #8,sp
  74.     rts
  75.  
  76.     xref    _AP_wr
  77.     xdef    AP_wr
  78. AP_wr:    movem.l D0-D7/A0-A6,-(sp)
  79.     movem.l 64(sp),D0/D1
  80.     movem.l D0/D1,-(sp)
  81.     jsr    _AP_wr
  82.     addq.l    #8,sp
  83.     movem.l (sp)+,D0-D7/A0-A6
  84.     move.l    (sp),8(sp)
  85.     addq.l    #8,sp
  86.     rts
  87.  
  88.     end
  89.